﻿Imports Negocio
Public Class frmRegistro

    Private contraseña1 As String
    Private contraseña2 As String
    Private Sub btnRegistro_Click(sender As System.Object, e As System.EventArgs) Handles btnRegistro.Click

        If txtUsuario.Text = "" Then
            MessageBox.Show("Introduzca el nombre de usuario")
            txtUsuario.Focus()


            Exit Sub
        End If
        If txtEmail.Text = "" Then
            MessageBox.Show("Introduzca el email ")
            txtEmail.Focus()

            Exit Sub
        End If
        If txtTarjeta.Text = "" Then
            MessageBox.Show("Introduzca el número de la tarjeta ")
            txtTarjeta.Focus()

            Exit Sub
        End If
        If txtTarjeta2.Text = "" Then
            MessageBox.Show("Introduzca la fecha de caducidad de la tarjeta")
            txtTarjeta2.Focus()

            Exit Sub
        End If
        If txtContraseña.Text = "" Then
            MessageBox.Show("Introduzca la contraseña")
            txtContraseña.Focus()

            Exit Sub
        End If
        If txtContraseña2.Text = "" Then
            MessageBox.Show("Confirme la contraseña")
            Exit Sub
        End If
        If Not txtTarjeta2.Text.Contains("/") Then
            MessageBox.Show("Caducidad de tarjeta no válida")
            Exit Sub
        End If

        If contraseña1 <> contraseña2 Then
            MessageBox.Show("Las contraseñas no coinciden")
            txtContraseña.Text = ""
            txtContraseña2.Text = ""
            Exit Sub
        End If

        Dim cliente As New Cliente(txtUsuario.Text, contraseña1, txtEmail.Text, txtTarjeta.Text, txtTarjeta2.Text)
        Dim texto As String = miGestionClientes.Añadir(cliente)
        If texto <> "" Then
            MessageBox.Show(texto)
            txtUsuario.Text = ""
            txtContraseña.Text = ""
            txtEmail.Text = ""
            txtTarjeta.Text = ""
            txtTarjeta2.Text = ""
            txtContraseña2.Text = ""
            contraseña1 = ""
            contraseña2 = ""
            Exit Sub
        End If
        txtUsuario.Text = ""
        txtContraseña.Text = ""
        txtEmail.Text = ""
        txtTarjeta.Text = ""
        txtTarjeta2.Text = ""
        txtContraseña2.Text = ""
        contraseña1 = ""
        contraseña2 = ""
    End Sub

    Private Sub frmRegistro_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub txtTarjeta_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTarjeta.KeyPress
        If Not IsNumeric(e.KeyChar) AndAlso e.KeyChar <> ControlChars.Back Then
            MessageBox.Show("Solo admito dígitos")
            e.KeyChar = ""
        End If
    End Sub

    Private Sub txtContraseña_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtContraseña.KeyPress
        If e.KeyChar = ControlChars.Back Then
            contraseña1 = contraseña1.Substring(0, contraseña1.Length - 1)
        Else
            contraseña1 = contraseña1 & e.KeyChar
            e.KeyChar = "*"
        End If
        

    End Sub

    Private Sub txtContraseña2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtContraseña2.KeyPress
        If e.KeyChar = ControlChars.Back Then
            contraseña2 = contraseña2.Substring(0, contraseña2.Length - 1)
        Else
            contraseña2 = contraseña2 & e.KeyChar
            e.KeyChar = "*"
        End If

    End Sub

    Private Sub txtContraseña_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContraseña.TextChanged

    End Sub
End Class